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Aout THE MAGAZINE 


Australian Visual Developers Forum is published Bi- 
Monthly by GUI Computing Pty Ltd. 


All correspondence, special requests, etc. should be 
addressed to the Editor, Australian Visual Developers 
Forum, at the address below. 


We welcome all hints, tips, source code and letters 
regarding Visual Development, in whatever language. 


While every effort is made to ensure the accuracy of 
the code and comment in this magazine, mistakes can 
and do occur. GUI Computing Pty Ltd cannot be held 
responsible for any errors and/or omissions, and 
readers should be aware that they use code from this 
magazine at their own risk. 


Australian Visual Developers Forum is a registered 
business name of GUI Computing Pty Ltd. ACN 052 
933 776. Visual Basic, Visual C++, Windows and 
MS-DOS are Trade Marks of Microsoft Corporation 
and Microsoft is a Registered Trade Mark of 
Microsoft Corporation in the US and other countries. 


All other Trade Marks and Registered Names used 
within this magazine are acknowledged as the 
property of their respective owners. 


Unless otherwise noted, articles in Australian Visual 
Developers Forum remain entirely the property of 
GUI Computing Pty Ltd and may not be reprinted or 
reused in any form without the prior written consent 
of GUI Computing Pty Ltd. 


CONVENTIONS 


In all of our Source Code Listings, we use the symbol 
(¢) to denote that the line carries on from the last. 
Therefore, the line : 

Print "This is a 

test line” 

will read : 

Print "This is a test line" 


when typed. 
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THe Heeler... By VB 


Love is in the air 

And isn't that the truth around GUI lately? AVDF Editor Anna 
Morgan would appear to feel that she has_a real weakness in the 
areas of multimedia and video. At least, this dog can only assume 
that's why she and VBA '95 multimedia presenter Scott Porter have 
being seeing so much of each other lately. I'm sure that their recent 
conferences (held very near Microsoft's Melbourne office, so I'm 
told) will have helped Anna get up to speed. 


Everywhere you look around 
But wait... there's more. Just who is Sydney Senior Programmer 
Stephan Grieger's new lady? 


Love is in the air me 
Australia must be becoming a popular destination with US VBers. 
No fewer than eight US presenters would appear to be set to make 
the ‘arduous’ trek to VBA '95. And at least two or three will be 
bringing ‘significant others’ along or the ride. Is this work, a 
holiday or a second honeymoon, guys? 


Every sight and every sound 

"It's a Girl!" was the total extent of a: recent email from PC 
Developer sumpremo Stephen Moignard. Congratulations to Alice 
and Steve on the arrival of Anna. That makes one of each... good 
management, guys. 


I don't know if I'm being foolish, don't know if I'm being kind 
Gambling is always foolish, so they say. But GUI boss Mark 
Trescowthick apparently doesn't think so, having been presented 
with a nice little win at Jupiters Casino recently. 


But there's something that I must believe in 

Don't always believe in Borland's Richard Morris, if the recent 
AVBUG conference is anything to go by. Richard was entertained 
by Microsoft's Steve Jackson on the first evening and, though Steve 
made it to the line the next morning, Richard's Delphi presentation 
had to be re-scheduled. 


And it's there when I look in your eyes 
Scott. Anna. Scott. Anna. Virgil. Penelope. Brains. Anna. Alan... 


Aporesses 
Melbourne : Sydney : 
26 Cato Street, Suite 514, Eastpoint Towers, 
East Hawthorn. 3123 180 Ocean Road, 
Edgecliff. 2027 
Phone: (03) 804 3999 Phone's,” (02) 363 5866 


Fax: . (03) 804 3414 Fax: |... (02) 363 5877 


Electronic : 
Oz-E-Mail : GUI Computing Forum 
CIS : 76702,2053 
Internet : 
SJeavock(@zoemail.com.au (Tech Support) 
mTrescow@ozemail.com.au (Mark Trescowthick) 
BFarrow@ozcmail.com.au (Bob Farrow) 


NewEvenr() 


Busy times all round, it would seem. 


The leadup to the release of Windows ‘95 (and all the 
other, related, products due to ship around the same time) 
has meant that everyone has just that one extra thing to do. 


That was certainly true at the recent, very successful, 
Tech*Ed ‘95.... though it seemed to me that what most 
delegates were trying to do was snaffle one of the excellent 
crew shirts. NBF Michael Williams from Microsoft 
certainly outdid himself on both the shirts and the overall 
event. 


Unfortunately, yours truly was struck down by a stomach 
bug on the second day and was reduced to drinking water 
at the cocktail party... a rare sight indeed. 


On the subject of conferences, this issue of AVDF marks 
the official launch of Visual Basic Australia ‘95. Those 
readers who were at the 1994 event in Sydney will no 
doubt recall me vowing never to hold another one. And 
I’ve come good on that promise in a big way... not one, but 
two! 


The decision to have conferences in both Sydney and 
Melbourne was driven largely by delegates’ responses last 
year, and I look forward to seeing you all at one or other 
(or, if you’re a real junkie, both!). 


Speakers already confirmed include VBA regular Keith 
Pleas, last year’s “hit” speaker Joe Robison and, coming 
out of a self-imposed hibernation, TrueGrid author and 
sometime recluse Gary Wisniewski. Another ‘new kid on 
the block’ is the Redmond-based Chris Kinsman, who 
numbers SQL Server 6, the next version of VB, Win ‘95 
and User Interface among his areas of expertise. 


And, of course, our Aussie presenters will be there in force 
as well, including a couple of special sessions from Jim 
Karabatsos and Ross Garner on Delphi as it relates to 


GAS Sa a ee USM 
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GUI Computing 


And we have a couple of new ideas to try, like our “After 
Dinner with the VB Masters” 10pm session at the end of 
day one, which will be devoted to extracting tips and tricks 
from our speakers in an informal (hic!) environment. 


The Great Debate is back too, but with a twist - the 
speakers will have no warning of the subject. It will be 
held as ‘half-time’ entertainment during the Cocktail 
Party. 


Meanwhile, GUI’s burgeoning Sydney operation goes 
from strength to strength, and now boasts two MSCP/VBs 
in Stephan Grieger and the newly-appointed Soong 
Cheong. Naturally, there’s been some good-natured 
ribbing about the fact that Melbourne only boasts one - 
Jim Karabatsos. Still, I reckon Jim’s worth two of them 
anyhow! Our Sydney startup has been very well accepted 
by both Corporate and Independent developers (for which, 
‘thankyou’) and if you need any VB or related consulting 
work in Sydney, don’t hesitate to call Bob Farrow. 


Of course, he won’t be there for the next month or so, but 
I'll be (I hope) an adequate substitute. What we really 
need is a permanent NSW State Manager, and I hope to be 
making an announcement on that Real Soon Now. 


While the impending release of Win ‘95 has meant a good 
deal of extra work all round, it has also had the side-effect 
of almost halting new product releases. About the only 
items of interest to turn up on our doorstep recently have 
been the much-upgraded new ImageKnife and 
MediaKnife releases from Media Architects, of which a 
review will be forthcoming in due course, and the very 
handy little VsFlex from the boutique VBX vendor 
VideoSoft. Steven Jeavock reviews VsFlex in this issue. 


We’re also starting to see a trickle of Delphi components. 
But only a trickle. Perhaps the flood is just around the 
corner, but it does seem that there is still uncertainty about 
Delphi's future. Which is a pity, as it’s one cool tool. 


iA RNS SEIS Si TER as BEA CE RE te ES TETAS ee 


L Well, it was an event you must have been sorry to have 
missed if you were not at VBA *94. Just ask one of the 
300 delegates that made it to the most important VB 
event of 1994. Yet fear not - VBA is on again, and if you 


LA 


9 o Uckbourne October 2 & 3 aud Syduey October 4 &5 


would like to get the ‘early bird’ discount, 
with a saving of $50 (until July 31st), turn 


to page 15 for registration details. 


Australian Visual Developers Forum 


Ross Garner 


Waiting DLLs in DeLpu ended iene 


Ross is the author of Easymap, a VB 
. THAT CAN BE Use By C, VB or orHeR APPLICATIONS. geographical information system 
I have been programming in VB for a number of years and have been tempted to | and is now shipping Version 2. 
write some of my code using C into a DLL for a couple of reasons: Eis Se 


: 


=> _ It should be faster 

=> It hides the source code, and therefore my intellectual property, from others if the code is to be incorporated into 
other projects 

Unfortunately C seemed to be too hard and I never had the time, or courage, to try. When Delphi came along I thought 

this could be a solution to my dilemma. However the only Pascal I did was 15 years ago, so I had to go back to basics. 

Over the next 2 issues of the AVDF I will show the things I have learnt in making DLLs in Delphi and the interface 

code required for VB. I am sure there are Pascal gurus who could improve my code and I encourage you to participate 

in this discussion. 


Ee eR esas SSIS SS SPSS 


I then create another project, say rgdli.dpr, using the 


Tue Diererent Ways oF Passine INfoRMATION soTOwne method. 


First of all I will go back to basics. There are two! 1. Close all existing projects and units. 

ways that variables can be shared between |2. Create a new project with menu File/New Project 

procedures, functions or subprograms: 3. Remove form! using menu View/Project Manager, delete unit 

=> by reference, where the address (or pointer) to |4. Add units containing the DLL code using menu File/Add File} 
the memory location of the variable is passed. |5. Display project file using menu View/Project Source and then, 

=> by value, where the actual value of the| “dit the project file to set seelarations for creating the DLL. | 


variable is passed. ae 
In VB, the default setting is that all variables are passed 


The new project file, with the changes shown, is below: 


by reference. This means any variable that is altered{library Rgdll; {*].program changed to library} | 
within a subroutine or function is also altered externally | uses {*2.removed Forms } 
from the subroutine or function. Rg2 in 'RG2.PAS'; {$R *.RES} 
ae e . * 2 
Delphi is the exact opposite, where all variables are passed | °*P°*tS par ene Aaa IEE 
by value. To make Delphi pass by reference use the var ChangeInt, {functions and procedures to export} 
M : po p y U ChangeSingle; | 
keyword. begin {*4.remove code from main block} | 
| 
J 


end. 


The key thing to understand is, if you want to retrieve -- 
information from a Delphi procedure or function, the Therefore, the smallest DLL project has 2 files: 


variable m i : 
€ must be proceeded with var. If you want more cgdli.der, the project. fits 


information on VB and ByVal and ByRef see Chapter 3 in rg2.pas the unit file(s) with DLL code 
Dan Appleman's book 'VB Programmers Guide to the 
Windows API' 
A DLL Exanece ror Nueers 

: _ The easiest DLL procedures and functions to write are 
Serine up tHE Det! ENVIRONMENT cca asia Gane 
I think it is important the DLLs I write can be called from |uses numbers either 
any language. This basically means following the C style. Forms, i 

p wil strings, see later). Therefore Rg2 in 'RG2.PAS'; {$R*.RES} | oating point. 
I use Delphi as a prototyping tool for VB so I can do all begin The following 
the development and testing in Delphi. When I create the Application.CreateForm(TForml code demonstrates 
DLL and test from VB, I know the code is working OK. 7. Borml) 7 - ‘the Delphi and 
: vine: | Application. Run; ; 

Step 1: I create a Delphi project in the normal way, say end. VB declarations 


required. The 


rg.dpr. In this project I create a = oy ine eeateats a a 
rg.dpr. the project file | Delphi test project file is shown above left. 


form and add buttons. Under the 
rgtest.dfm the form code 


button.click event I put code to test . ae ; 

the procedure being created. All the rgtest.pas the unit file with | The unit containing the DLL code fei =. 
code to be included in the DLL isthe button click code pa Notice thy arian a ! a ene AS 
put into other units. Therefore, the rer the unit file(s) ae wi, eee eaaslanaba. ihenesagccmedas 


smallest application has four files, | with the DLL code | declaration. The export directive makes a 


[ 


procedure or function within a DLL exportable by forcing 
the routine to use the far call model and generating special 
procedure entry and exit code. 
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If all goes according to plan, you have just created your 
first DLL. 


unit Rg2y a mae oF 
interface 

procedure Changeint(x1l : integer; var x2 integer); @ 
export; {Note export directive} 


procedure ChangeSingle(xl : 


export; {Note export directive} 
implementation 
procedure ChangeInt (x1 integer; var x2 
begin 

RZ 2S. 21° *° 20; 
end; 
procedure ChangeSingle(xl : single; 
begin 

R20 = 1 * 20.567 
end; 


Single; var x2 : single);¢ 


integer) 7 


var x2 So single) ; 


Waat Happens it ir Does Not Worx. 


The golden rule when working with DLLs, 
especially developing, is save your work 
every time you run the application. If the 
DLL crashes it will not be removed from 
memory automatically and a new version 
cannot be created until it is removed. To 
solve this problem, onc of the most 
| overlooked, but useful utilities, comes with 
VB3. It is WKS.EXE and you must tick the 
CDK options at the VB3 install. WKS.EXE 
is then placed in the VB\CDK directory. 
_— Using this tool find Rgdll.dll on the list and 


| 


This is the code on the test |PEOCedure TForml.ButtonIclickd — 


(Sender: TObject); 


form that Gar 


buttons: 


contains 2 
x1,x2:integer; 

begin 

x1:=4; 

ChangelInt (x1,x2); 


To test the application 
compile and run in the 
normal way. To create the 
DLL project use the 
rgdil.dpr shown above and 
compile the project. You 
cannot Run a DLL project. 


end; 


(Sender: TObject) ; 
var 
x1,x2:single; 
sistring ; 
begin 
x1:=4.6; 
Changesingle (x1, x2); 


Now let’s create the VB 
end. You will need to 
create a form with 2} str(x2:0:3,s); 
buttons and a module file. | showmessage (s) ; 
In the module put the "qd; 
following declarations. end: 


showmessage (inttostr(x2))+ 


procedure TForml.Button2Click? 


remove it using menu _ item . 
Options/Free Module. 


Determine whether the problem is with 
the Delphi or VB code. This is the 
reason I use Delphi and create the 
prototype before testing the DLL. 


Make sure the byval and byref 
correspond with the Delphi var. 


_|Check the VB variables type (Integer, 
single etc.) correspond with Delphi. 


Not all VB variable types have a 
Delphi equivalent. Check the 
‘document that comes with Delphi 
called VB2delph.wri in the delphi\doc 
ih” | directory. 


Declare Sub changesingle Lib "rgdli.dl1"d 
(ByVal xl As Single, x2 As Single) 
Declare Sub changeint Lib "rgdll.dl1"? 
(ByVal xl As Integer, x2 As Integer) 


The following things should be noted: 


= The directory in which the DLL is located must be in 
the path. The 'standard' location is in windows\system 
directory 

= The parameter types being passed must match the DLL 

=> Use byval if values are passed 


Sub Command! Click () 
Dim xl As Integer 
In the form put Dim x2 As Integer 
the following: xl = 4 
Call changeint (xl, x2) 
i Print x2 
iEnd Sub 
Sub Command2 Click: {) 
Dim xl’ As Single 
Dim x2: As Single 
x1 = 4.6 
Call changesingle(x1,x2) 
Print x2 
End Sub 


Heel LE 


Use the Delphi wordbool type, not boolean, as wordbool 
returns 2 bytes to VB which is equivalent to VB's integer. 
This translates as 0 = false, 1= true not the VB values 
which are 0 = false, -1= true. 


Masor Proptems with Functions 


There is a major problem when using functions that return 
float type numbers such as single and double. Because of 
the different methods that Borland and Microsoft use to 
pass float numbers, you CANNOT return a single or 
_, double in a function written in Delphi. The following 
will work OK: 


function ChangeSingle (xl Single): ?¢ 
integer; export; {returns integer} 
procedure ChangeSingle(xl : single; ? 


| var #2 ..tcosinglé);. export? 


The following will NOT work: 


function ChangeSingle(xl : single): ¢ 
Single; export; {returns single} 
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If you want to use the functionality of a function, a 
wrapper in VB needs to be used. For example in VB the 


code would be: 


/techdocs/language/delphi/gen or by contacting the author 
at Compuserve address 100065,55. This is a marvellous 
utility, with concise help, that is easy to use and will 


ChangeSingle(xl : 


VBChangeSingle 
end function 


function vBChangeSingle(x1) as ; single 
call. ChangeSingle (x1, 
‘this corresponds to procedure? 


'VB declaration is: 
‘declare sub ChangeSingle lib"rgdl1"¢ 
(byval xl as single, x2 as single) 


automatically add the version resource every time you 


x2) compile your DLL. 
To read the version resource in VB the code below can be 
single; var x2 single) | used. 


In the next issue of Visual Developers forum this topic 
will continue and show the way to transfer: 


xe pointers 


Appine VeRsion Information 1o THE DLL 
Since the proliferation of DLLs and VBXs produced by 


independent manufacturers, a | 
major issues has arisen with 
the particular version of the 
DLL or VBX that is installed 
on a machine and being used. 


For example, 
installs your new mega 
application and it works 
perfectly. Some time later, 
they install another 
application that replaces one 
of the DLLs your application 
uses, with an earlier version 


which is not compatible with | 
the version you ship. All of a. 
sudden your application does | 
not work and you get the) 
product support phone calls | 


and angst. 


Luckily most professional 
companies that produce 
DLLs and VBXs_ include 
version information within 
the DLL or VBX and some 
even return this as a property. 
It is very simple to add this 
version information to the 
DLLs we write in Delphi by 
adding a version resource to 
the DLL when we compile 
the project. A version- 
information resource 


contains data that identifies | 


the version, language, and 


distribution. Using windows | 


API calls we can read this 
information. 


The easiest method to create 
the version resource is to use 
a freeware product called 
Delphir.cxe, obtainable from: 
ftp.borland.com/pub/techinfo 


a customer | 


° strings 
types arrays 
If you have any comments or improvements please contact 


the editor via phone 03 9804 3999 or fax 03 9804 3414. 


Declare. “Function GetModuleHandle Lib "Kernel" 
ipModuleName As String) As Integer 

Declare Function GetModuleFileName Lib "Kernel". (ByVal hModuled 
As Integer, ByVal ipFilename As String, ByVal nSize As iereuee)< | 


ee Ps 
| 


(ByVal & 


As Integer 

Declare Function GetFPileVersionInfoSize$ Lib "ver.dll" (ByVal? 
lpszFileNameS, lpdwHandles) | 
‘Declare Function GetFileVersionInfo% Lib "VER.DLL" (ByVal? 


lpszFileName$, ByVal handle As Any, ByVal cbBufs, ByVal lpvData$s) 
‘this function returns fileversion string in a version resource 
'Getversion true on success 
‘false on no version resource 
'Dilnames the name of the dll. 
= dll filename 
‘strversions = 
Function Getversion 
Dim OK%, hModule 
Dim pos As Integer, hVers, VerSizesé 
Dim version As String 
Dim filename$, Matchs 
Getversion = False 
‘see if dll is already loaded in memory 


it is assumed the dliname? 


the string in file version 
(Dllnames, strversions) 


hModule = GetModuleHandle(Dliname$) 
If hModule = 0 Then ‘if hModule= 0 then module then doesnt? 
exist | 
filenames = DllnameS + ".DLL”'if not loaded assumed 
filename=d1l name : 
Else | 
filename$ = Space$(255) | 
OK = GetModuleFileName(hModule, filenames, # 
Len (filename$) ) 
End If 


‘read version info from file 
VerSize& = GetFileVersioniInfoSize(filename$, hVers) 
‘if VerSizes= 0 then version info doesnt exist 
If VerSizeé& 0 Then 
Exit Function 
End: If 
' Get version info and fill version string: 
| If VerSize& > 64000 Then VerSizes& 64000 


| version =. Space$ (VerSizesé) 
| OK3 = GetFileVersionInfo(filenameS, hVeré&, VerSize&, version) 
' Find position in the string where the FileVersion stamp is: 
Matchs = "FileVersion"” 
pos = InStr(1, version, Match$) + Len(Match$) +. 1 
strversionS = Mid$ (version, pos) ‘get string after? 
Match pean in version 
pos. = InStr(1, strversions, Chr$(0)) 'reads up to next? 
chr$(0) ! oe 
strversions = Lefts latrversions: pos = 1) 
Getversion = True 


End Function 
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Tony Harris 


Pictures, [maces AND Hotspots Jenton Softwar 


Unlike Help Compiler, which comes with a HOTSPOT __ Inall other parts of the Tony Hare Mahssine Disector 
editor, VB3 doesn't inherently allow you to access parts form, set the cursor if etn, Sefioease sed ee vr 
of a picture in order to trigger some event or code. back to the normal ec (049) 543 480 

Without going to the expense of buying another VBX to arrow. —_ A 
do the job, here's a quick tip to allow you to have 


interactive hotspots on a small part of a picture on your 
form. should be; 


i.e. the mousemove events for Form, Picturel or Image 


Cea Nev Fa [Sub Form Mousewoved | 
Add a PictureBox or an Image Frame gc en eneereintes =. 9 | 
to the form, to hold your background eed Ga 


picture. Say a Teddy Bear's face, 
which you want to wink at the user 
when they select the eye. Now add an 
IMAGE FRAME so that it will cover 
the eye on the Teddy Bear's face. 


Now that we have the picture in place, 
and the hotspot in place, we need to 
trigger the bear's response. Using the 
IMAGE frame's Click event we place 
the code below. 


If you used a Picture Box - remember 
that it will act as a container, but the 
Image frame will not. Therefore it is 
important in the case of Picture Boxes 
to place the hot spot image frame 
inside the Picture box, otherwise it 
will be underneath it and not 
accessible to the user. 


Sub imgHotspot Click () | 
Dim i As Integer 
"show the wink 
Picturel.Picture =? 
LoadPicture ("Bear2.bmp") 
: "Delay the wink 
For i = 1. to 5000 
next i 
Picturel.Picture = 
LoadPicture ("Bearl.bmp") 
End Sub 


In the case of the background picture 
being enclosed in an image frame, just 
use the Edit-Bring To Front menu 
item to make the 2nd image frame sit 
on top. Make sure that the Hotspot 
Image Box has the BorderStyle 


property set to 0 - None, so that RINT Fe aut es 
Sub imgHotspot MouseMove (Button As Integer, @ Alternatively, you 


; 5 ; 
the users can't see it at runtime. Shift As Integer, xX As Single, 7 AS Single} could store both 
Use the code (right) within the tite ec, ue gone can ae aon bitmaps in hidden 
MouseMove event to tell the |coystanr. txt in your MAK picture boxes or 
users that something could ‘file and reference mousepointer with image frames so that 
happen if they clicked in this ' Screen.Mouspointer = UPARROW the response time is 
"hotspot" region... ai aun quicker. 


€ Remember What That Code Does? VB Tree enables quick identification of the 
procedures and calls involved in making a module 
€ Remove Redundant Objects by cross referencing the code 
€ Clean Quick Reporting of VB Apps via procedure, object, module or application 
€ Optimizes Both Time & Code - familiarise yourself with the structure of an app. 
€ Optimize Resources - view statistics relating to the code and resource usage 
€ Cross Referencing ability to give structural representation of a VB application 
TM 2 Variables and Constants - ability to cross-reference them all 
3€ Redundancy - shown on a process, object and module level 
\ B TRE K € Readability - graphical representation on screen and reports 


3€ Usability - interface similar to VB development environment 


Structural Representation and Reporting For Visual Basic available for just $199!!! 
Ring GUI Computing on (03) 9804 3999 or fax on (03) 9804 3414 to order your copy. $10 charge for shipping. 
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Mi Qsoft 
ZS FLIPPING Paces 


In my previous article on how to create a Print Preview 
screen using VSView or a picture box, you will have 
noticed that I stuck to the traditional method of flipping 
between pages, ie, Left, Right, First and Last buttons. 
However, it strikes me that since we are using a Graphical 
system, wouldn’t it be nicer if we could have a page curl 
down the bottom right of the page that the user can also 
click on to move left or right? 


In the past, this technique was accomplished by using a 
simple square like the one pictured below. All you needed 
to do is to check where the mouse is to determine which 
way to flip the page. 


.. While this technique was adequate, wouldn’t it 
F be nicer if we could use the curl pictured left? 
Then the whole effect takes on a more user 
' friendly, not to mention a Win ‘95, appearance. 


Brice 


This technique does have its difficulties though. These 
are; 


] You cannot use simple X and Y co-ordinates as 
there are now curves involved and the curl does 
not dissect the region into two equal halves, 


2 The picture of the curl is now a rectangle that has 
part of the page still on it so that any text that is 
under the curl cannot be seen. The net effect is 
that Ictters are cut off at the left edge where as 
they should be cut off at the curl instead. 


Whilst these problems are serious, they are however not | 
insurmountable as long as you, funny about this, use the 
API. 


The first step of any development phase is always to draw 
your pretty pictures first. So let’s do the curl. 


You will need to have two versions of the curl. 
The first is a Mask. This involves colouring all the 
areas of the bitmap that you want to be transparent 


to White and all the arcas that are to be shown as | 3 


Black. See picture right. 


The second bitmap is the sprite. This bitmap looks like 
the proper curl but with all the areas that you want 
to be transparent coloured in Black. This may be a 
little hard to see on paper so refer to the VB sample, 
* CALLDLLS.Mak. Why not, ! did! 


Now place the actual curl bitmap, called picCurl here, on 
the page somewhere. You will need to make the curl a 
child of the page. You will also need to set the ScaleMode 
of both the page and the curl to be Pixels. This property 
is setable at runtime so you can change it back if needed. 


_ Create two more picture boxes named as above and place 
' the Mask and the sprite in them, and set them invisible. 


'Dim a few variables. 


"Set a few entry level parameters. 


picWidth, picHeight, hDC, picCurl.Left,¢ 
picCurl.Top, SrceCopy) 
‘Copy the mask onto the curl. 


picWidth, picHeight, picMask.hbc, 0, 
SrcAnd) 
‘Copy the sprite onto the curl. 


picWidth, 
Sreinvert}) 


Stephan Grieger 
GUI Computing 


Now your ready to go onto phase two of your project. 
Coding the thing. 


You will require two API calls. BitBlt and GetPixel. 


BitBlt is found on page 360 of Daniel Appleman's API 
bible. Basically it copies a bitmap from one area of the 
screen to another or from one control to another according 
to X and Y positions. 


GetPixel is on page 307 of Daniel Appleman's API bible. 
Given a device context and X and Y positions, this call 
will return the colour of the current pixel you are over. 


Making the curl look just right: 


Dim temp | 
Dim hDC 

Dim picHeight 
Dim picWidth 


hDC = picPage.hDC : 
picHeight = picCurl.ScaleHeight 
picWidth = picCurl.ScaleWidth | 


‘Copy the existing background onto the Curl | 


temp = BitBlt(picCurl npc, 0, 0,¢ 


temp = BitBlt(picCurl-hpc, 0, 0,¢ 
0,3 


temp = BitBlt(picCurl.hDc, 0, 0, 
picHeight, picSprite.hbpCc, 0, 0, 


The above code will need to be run after the page has been 
filled with the report. 


Every time the text on the page, specifically where the curl 
is located, changes, you will need to run the above code so 
as to get the letters into the curl bitmap. 


MAKING THE CURL FLIP PAGES: 
The technique for flipping the page is quite easy so long 
as you follow a few rules. The curl has three main areas. 


1 To the left of the curl is the current page and when 
the user clicks there the page should not flip. 


2 The actual curl where when the user clicks there 
should flip the page to the next one. | coloured this 
area Dark Grey. 


The previous page area which is located to the right 
of the curl. I placed blue lines here and coloured 
the area Light Grey. 
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The colouring scheme you choose is 
important. In our code we are going to be 
checking what the colour is of the pixel the 
mouse is over. If you do not use different 
colours for the curl and the previous page 
sections, you will not be able to determine 
whether the user has selected a next or 
previous page action unless you check 
against X and Y co-ordinates which defies 
the purpose. Below is the code needed. 


Sub picCurl MouseDown (Button? 
As Integer, Shift As Integer,¢ 
x As Single, y As Single) 
‘Dim a few variables. 
Dim Colors 
‘If we are not using the left 
mouse then exit the routine. 
| If Button <> 1 Then Exitd 
Sub. a 
'Get the color of the pixel we 
are over. 
Colors =¢ 
GetPixel (picCurl.hDC, x, y) 
‘Determine the direction of the 
flip based on the color of the 
pixel. : 
If (Color& = DkGrey) Then 
Flip to the next page. 
ElseIf (Coloré = LtBlue) ¢ 
Or (Colors = LtGrey) ord 
{Color& = DkBlue) Then 
Flip to the previous 
page. 
Else 
Don't. flip. 
| End If 
iEnd Sub 


That’s it. Obviously this technique can be 
refined a little if you use a few X and Y co- 
ordinates, but you can figure that out 
yourself. The net effect is something like 
this; 


+ picPage + 


Steven Jeavock 


FLEXIBLE SOFTWARE GU Campin 
VsFlex is the latest product release from VideoSoft, who gave us VsVbx 
and VsView. It provides VB developers with a grid control called 
VsFlexArray and VsFlexString which is an expression engine for 
implementing such things as search and replace. 


VsFiexArray is an alternative to using the Grid. VBX control shipped 
with Visual Basic and its primary feature is that it is compatible with 
existing Grid. VBX code, so developers looking to replace their control 
with something a little more powerful can drop VsFlexArmay straight 
into their project with no need to change any code. So what does it give 
you above and beyond Grid? Weil a TrueGrid it isn't. It has no support 
for being bound to a data source and all cells therefore must be 
propagated manually. I found this aspect disappointing, especially in 
light of the plethora of controls that can be dynamically linked to data. 
it seems to me that it wouldn't have required much extra work to make 
it data aware, nevertheless they didn't so that's that. What you do get is 
the ability to sort the contents of the grid in various ways including 
string sort, numeric sort, and row compare sort, which is custom 
depending on what criteria are specified. It will allow storage of more 
than 2000 rows, column and row repositioning, use of hidden rows and 
columns, font and cursor control, word wrapping and bitmaps and icons 
in cells. 


In cell editing is accomplished via the use of another container such as 
a text box, which is stored in the grid and its position is manipulated at 
run time. The best feature of VsFlexArray is without doubt the ability 
to merge cells. This is similar to the use of pivot tables a /a Excel, 
although VsFlexArray itself won't perform any pivoting functions, 
that's left up to you. For those of you unfamiliar with the idea, have a 
look at the illustrations below. 


———— pea ober 


ty Icorm 


MergeCells = U 
MergeRow(i}) = True 


MergeRow(1) = True 
MergeRow(?) = True 
MergeRow(3) = False 


1. Northwest : Applets 


This is the regular 


| spreadsheet view 1 Northuuest |4. Applets 


2. Southwest |2. Trinkets 
2. Southwest [4 Applets 
2 Southwest [4 Applets 
2. Southwest |4. Applets 


MergeCells = 1 

MergeRovw4(0) = True 
MergeRow(1) = True 
MergeRow{2) = True 
MergeRaow{3) = False 


Emptoyee Salechan | 
many 5333.73 5 | 


9024.58 
9193 77 


1 Wahoos 


4. Northwest | 3. Foobas 


Donna 


Notice now the third 
employee cell (Donna) 
merges across products to 
its left and across sales to 
its right 


2 Trinkets 


2. Southwest 


|9. Applets 


Restricted Merging 


MergeCells = 2 
MergeRow(0) = True 
|MergeRow( 1) = True 
\MergeRow({2) = True 
MergeRow(3) = False 


Notice how the third 
employee cell (Donna) no 
longer merges across sales 


Region Product 


1. Wahoos 
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Purtine Pictures on your Buttons 

Haven't you wished you had VB's 3D 
button to brighten up the battleship 
gray with custom pictures and/or text? 
In fact, you can go one better in Excel 
if you know how. 


Create the button, and position its text 
at the bottom (alignment property). 
Create a picture with a graphics 
package and paste it into Excel. 
Resize and position over the button, 
then use the Drawing toolbar to group 
the picture and button as a single 
object. Bingo! 


If you want to have coloured/fancy 
text, simply delete the normal button 


EXCEL VBA How-To's 


Note - to save as a template, use Save 
As and choose Template from the 
document types listed in the 
dropdown in the dialog box. If you 
want several different workbook 
templates for different purposes, save 
them under different names, and 
when you load a new workbook, 
Excel will prompt you to choose 
between them, just as in Word. 


SETTING THE Cursor SHAPE WITHIN VBA 

The LoadCursor and SetCursor API 
calls can be used within a Visual 
Basic for Applications subroutine to 
set the cursor on the screen. Here's 
some example code: 


Dermot Balson 
Independent Developer 


How to Have your Pesonat Uriuries AVAILABLE EACH 


Tune YOU Loap Excet 
Copy the worksheet/module sheet 
containing the functions into the 
"Personal Macro Workbook" 
(Personal.xls). 


The Personal Macro Workbook is a 
good common place to store all 
macros/functions that you need to be 
available to all workbooks. 


Alternatively, save the workbook 
containing the function in the 
Excel\xlstart directory. Any files in 
this directory will automatically open 
when you start Excel. 


text and create your own as 
part of the picture you are 
superimposing on the button. 


How 10 Group Osxecrs 

Click on the pointer icon on 
the Drawing toolbar. Then 
lassoo (draw a box round) 
the objects you want to 
group, and click on the) 


‘enter these function 
declarations each on a single line 
Declare Function LoadCursor Lib? 
"User" (ByVal hInstance As Integer, 
ByVal lpCursorName As Any) As Integer 
Declare Function SetCursor Libd 
"User" (ByVal hCursor As Integer) ? 
As Integer 
Sub LoadWaitMousePointer () 
Const IDC_WAIT = 325146 
Dim HourGlass As Integer 
Dim X As Integer 


PREVENTING THE User FROM BREAKING INTO A RUNNING 


PROGRAM 

Use Application.EnableCancelKey, 
which has three different settings. 
Use with care. 


Gerrine Rio of Unwawten Links 
Excel has a tendency to create 
unwanted links. Try this macro as 


grouping icon (walk the) 


HourGlass = 


LoadCursor (0, 


mouse along the icons, and | 1DC_WAIT) 


the Tooltip text will tell you | 
which is which). 


DETERMINING ProgRAMMaricatty WHAT DireREnt Types oF 


Opiects aRE 
You can determine what type of object 
has been clicked, or 


active, by turning it 


Using THE Bue StaTusear THAT sHOWS THE Progress OF 


FILES THAT ARE BEING LOADED oR SaveD 
Sorry, this is not available to VBA. 


Creatine Document TEMPLATES LIKE THOSE In Woro 

You can create automatic templates 
for Workbooks, Sheets and Charts. 
Do this by loading a new workbook, 
setting it up the way you like (eg. 
number of sheets, formatting ctc.), 
and saving it as Book.xlt, Sheet.xlt, or 
Chart.xlt respectively in the 
XLSTART directory. 


End Sub 


= SetCursor (HourGlass) 


recommended by Microsoft. 


Names () : 
Dim a_name As Variant? 
‘dimension variable used 


lpim 0 as Object 
what type of sheet is}set 0 = Selection 
ActiveWorkbook or_ 


into an object like so: |MS9Box TypeName (0) 


Call the LoadWaitMousePointer 
Routine when you want the 
hourglass. The cursor returns to 
normal when control 
returns to the user. 


Vor 


i 

| Excel Versions 

‘A free update, version 
5.0c, was issued in September 1994. 
It fixes a number of bugs. You have 
to get it from Microsoft as it's a full 
set of disks. The Black Label disk 
contains a file called Excel50c. wri 
which lists the fixes. 


PREVENTING THE USER FROM BEING ASKED WHETHER 10 SAVE 


A WORKBOOK WHICH IS BEING CLOSED 
Application. DisplayAlerts = False 


in loop. 
For Each a name Ind 
ActiveWorkbook.Names 
If a name.Visible =| 
False Then a name.Delete 
"Test each name and 
only delete the hidden 
ones. 
Next 
End Sub | 


Cteaning Up SpreasHeers 

Remember when VB didn't release 
memory or deleted code, and EXE 
files were full of junk? 


Excel is proud to boast a similar 
feature. 


If you have created a complex 
workbook, you'll want to run it 
through the program on the Black 
Label disk, which should remove the 
unwanted junk. 
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I read with interest Ian Roberts article on 
"Replacing THREED.VBX" in the latest 
edition of the AVDF (Volume 4, Issue 2). As 
I have used this particular VBX in many of 
my own projects, | was alarmed that an 
earlier version of THREED. VBX could cause 
such havoc. I am grateful that this conflict 
has been drawn to my attention. 

However, I can't for the life of me understand 
why Jan went to such convoluted methods to 
rectify the problem. Wouldn't it have been 
much simpler to include code in the install 
programme to delete the customers current 
version of THREED.VBX (if one exists) 
using the KILL command? Alternatively, if 
for some reason you don't want to delete any 


existing versions, you could simply rename | 


THREED.VBX (say to THREEDDD.VBX) 
and then make the relative change to your 
application's MAKE file. Your application 
will now be able to use the latest version of 
the VBX. 


Phil Moroney 


There are a few issues that make your 
approach unlikely to be 100% reliable. 

On your first point, deleting any potentially 
conflicting VBX's or DLL's may cause 
problems in other applications. How would 
you feel if your app fell over and, after 
dealing with screaming clients, you found 
that some other app killed one of your support 
files? 

Regarding the alternative option of renaming 
support executables, Peter Wone’s comments 
say it all : 


"renaming an exccutable/VBX won't do | 


any good. While it will change the module 
name, this will only work in the extremely 
unlikely event that the executable doesn't 
register any window classes. All VBXs 
register window classes - they have to in 
order to appear in the toolbox. The window 
class names registered by whichever VBX 
loads first will prevent later VBXs from 
registering the same class names, and they 
won't be able to load. Version control is an 


ongoing nightmare in the Windows 
environment." 

I can only agree with Peter, hence my 
approach to the problem. 

lan Roberts 


Le 


ry) In Response 10... 
SKINNING Cats... THE Great Printer Cop. 
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Last week I discovered the way of sending escape codes from VB. The 
problem with send escape codes lies not with windows, VB or the 
printer drivers, but with the font you use. Most truetype fonts don’t have 
an escape character in them. The following code shows how to find a 
font with an escape character and use it to send escape codes. Using this 
method you can mix printer.print statements safely with escape codes. 


SEND ESC.BAS 
Dim mStrEscFont: As 
type TEXTMETRIC 
tmHeight As Integer. 
tmAscent As integer 
tmDescent As Integer 
tminternalLeading As? 
TAteger 
tmExternalLeading As? 
Tniteger 
tmAveCharWidth As integer 
mMaxCharWidth As Integer 
tm Weight: As. Integer 
tmitabic As String *1 
tmUnderiined As String *1 
tmStruckOut As String -*1 
tmfirstthar As String *1 
tmLastChar As String *2 
rmbefaultChar As String *1 
imBreakChar As String *2 
EmPitchAndFami ly asd : 
String *1 
tmCharSet As. String * 1 
tmQverhang As Integer. 
tmDigitizedAspectX As? 
Integer : 
tmDigitizedA, 
Integer 
End Type 
Declare Function? 
GETTEXTMETRICS Lib “GDI”’d 
{ByVal ADC As’ Integer, d 
lipMet rics As TEXTMETRICS) As 


String 


specty As@ 


[Integer 

Sub. InitEscapeFont: (} 
Dim tm AS TEXTMETRIC 
Dam - DUMMY % 

Dim i As: Integer 


m8trEscFont. =d 
MerTnitialise to empty atring 

For is =6 tod 
Printer. FontCount 

‘Loop through all 

available. fonts looking for a 
font with a tmfirstchar value 
than 27{Esce'.s ASCII code} 
Printer. FontName =¢ 
iPrinter., Fonts (13 

DUMMYS = GETTEXTMETRICS? 
(Printer ADE, tm) 
If Asc(tm.tmfirstchar) # 
< 27..Then 
‘If Escape is available 
Ithen save font name and: exit 
mStrEscFont = 
(i) 
Bxit 

End: If 
Next i 
(End: Sub 


Less 


Printer, Fonts 
For 


Function SendVBEscaped 
(EscapeString As String) 
Integer 
Dim PreviousFont As String 

. MEE anything. goes wrong, 
function. returns to value of 


As? 


1, else returns a 0 to allow 
programmer to implement error 
checking 

SéndVBEscape = 1 

Tf Len(mStrEscFont). = (¢ 


Then 
‘Escape font has not been 
initialised or none of the 
available fonts has character 
24 
EXiE Function 
Lise : : 
PreviousFont =¢ 
Printer. FontName 
Printer.FontName = 
mStrEscFont 
- Printer. Print? 
Es¢apeString 
Printer. FontName 
PreviousFont 
SendVBEscape = 
Bnd TE 
End Function 


aa 


O 


‘Add a command button to a new 


the SendVBEscape Font. 


jeue Form Load 
i Call InitEscapeFont 
End Sub 


Sub Command Click 
Dim Ret’ 
Dim Esc. As String *1 
bse = Chr{27) 
i Printer: FontName = “Arial” 
| Printer.FontSize = 16 
Printer: FontUnderlined =¢ 
True 
‘Following: Tine executes 
Ehe printer macro number . 1 
Ret = SendVBEscape (Esc? 
“EFIY’-& Ese..& “&E£2X%) 
Printer. Print 
Printer. Print 
Printer.Print “This is ad? 
Test Line” 
Printer. EndDoe 
End Sub 


( 


& 


Courtesy of Darren Gosbell at i, J Campbell Pretty & ‘Associates. 


Nl 


\form and enter the following code 
into the appropriate events to lest 
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SYSTEM COLOURS = arg 


It is often unfortunately easy to pick a VB program... and colours using the GetSysColor API. Not too hard to do (or 
one of the key giveaways is their use of colour. to implement) if you simply step through the Controls 
Collection on form load and set whatever colours are 
required. 


When a user changes her or his Windows colours via 
Control Panel, she or he expects that all programs will 
exhibit the new colour selection. Unfortunately, this isn't It should be noted that the declares mentioned are given 
true of many VB apps. And it does cause some irritation, in the constant.txt file that is distributed with VB. 
especially for those of us (like me) who are colour blind or Additionally there are two other values: 

who have an aversion to, for example, a white 
background. My guess is that many VB programmers just 
don't bother, but I'm sure they haven't really investigated 
the issue to far. It's not so hard as you might think. 


Const COLOR_INACTIVECAPTIONTEXT = 19 

Const COLOR_BTNHIGHLIGHT = 20 

These are available only in Windows 3.1 and are given in 
WIN3 LEXT.TXT also distributed with VB. 

By default, forms will use the default colors designated in 


the Colors applet [const COLOR SCROLLBAR = 0  *' Seroll-bar gray area 

in Control Panel. |const COLOR BACKGROUND = 1  ! Desktop 

So, if you want to |Const COLOR ACTIVECAPTION = 2 .! Active window caption 

set the colour |Comst COLOR INACTIVECAPTION = 3 ' Inactive window caption 
Const COLOR MENU aa ' Menu background 

property values to | const COLOR WINDOW = 5  ' Window background 

this sequence of |const COLOR _WINDOWFRAME = 6 ' Window frame | 

numbers, you can |Const COLOR _MENUTEXT = 7. .' Text in menus | 

reset them if |COmSt COLOR_WINDOWTEXT = 8 Text in windows 

; h J |}Const COLOR CAPTIONTEXT = 9 Text in caption, size box, 

yOrvVe snaney scroll bar, arrow box 

them. Const COLOR ACTIVEBORDER 10 ' Active window border | 
/Const COLOR INACTIVEBORDER 11 Inactive window border | 


1 
1 
1 
And, of course, |const COLOR APPWORKSPACE 12 ' Background color of MDI applications 
t 
1 
t 
1 


the opposite is |Const COLOR HIGHLIGHT 13 Items selected item in a control 
true. If you need |SO"st COLOR HIGHLIGHTTEXT Text of item selected in a control 
to explicitly set Const COLOR _BINFACE I5 Face shading on push button 

’ Const COLOR BINSHADOW 16 Edge shading on push button 


Wea a Wee TE Aa 
be 
> 


colours of various |Const COLOR _GRAYTEXT 17 ' Grayed (disabled) text 
controls, then ' Color set to 0 if current. display 
simply pull the ' driver does not support solid gray 


; Const COLOR BINTEXT = 18 ' Text on push buttons 
appropriate |- : ae ie ea 


N ( The following mail conversation was sent to us 
0 OMMENT by a reader, who shall remain anonymous. 


Q. What would happen if the compiler comes across statements from 65536 to 99999? It would be useful for me to 
insert my compensatory code for...using instructions > = 65536. 


A. The compiler can handle statement numbers up to 2147483647. | think this will be sufficient to allow you to squeeze 
in any extra code you need! 


Q. Can the source program have statement numbers which are not in ascending order? This is pertinent to the compiler. 
If yes, it would make a lot less complicated to... Even more ambitious, can later statements overwrite previous ones? 


A. Your suggestions for non-sequential and duplicate statements are interesting. Here are a few more suggestions that 
we might consider implementing in future releases of the product. Why not allow for decimals in the statement 
number? If this still proved to be to restrictive, we could, with some slight modifications, also allow for irrational 
numbers and negative numbers. Taking it one step further, imaginary numbers, such as the square root of negative two, 
would also be possible. If we were to combine the multithreading capabilities of Windows NT and Windows 95 with 
some of the latest research into string theory , we could have an infinite number of duplicate statements all executing 
in ten dimensions simultaneously. However this latest feature may require some C code and an extra DLL. 
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TurpoPack 


Released by Softland Inc, “TurboPack” provides a unique 
set of four custom controls to graphically enhance your 
applications. The product consisting of: Hotmap - Custom 
region designer, Mcursor - Assign Icons or Bitmaps to 
controls, TitleSpy - 
- Control Message. 


Title bar manipulation, and Pophelp 


Poligon Describer 


ASRS Lila. 


[ A custom region is defined for the Northern Territory } 


eras} joa abi of free as crrriees Bio ladee 


Rese eee thera h: 


re yi re looking for an agiveinly simple way to define 
custom regions, the ‘HotMap’ custom control is a Visual 
Basic Control which allows multimedia application 
developers to define regular or irregular shaped regions 
(Hotspots) on a selected bitmap. After defining a bitmap, 
all that is needed is a ‘Right Click’ of the mouse button on 
the control, and the ‘Polygon Describer’ interface is 
loaded allowing you to create your own custom regions. 
An alternative method is to set the regions during run- 
time by using the ‘Additem method’. You have entirely 
free control over the shape of your custom regions and as 
many as you like within each control. Ali the region's sizes 
rescale automatically when the control is resized, and 
regions may be saved to a file and retrieved at design time 
or runtime into HotMap Data files (extension .HMD). 


The user has a choice of different visual effects on click of 
the defined region (ic. flash clicked area, invert clicked 
area, draw a border around clicked area, etc.). The 
Customs regions can also be dragged. The user can also 
set any colour for any defined area. The colour palette 
resolutions are not affected in any way when the 256 
colour images are stretched. 


Australian Visual Developers Forum 


John Mina 
GUI Computing 


The programmer can also provide the end user with a 
capability to define regions as well as visual effects. The 
HotMap control is compatible with Visual Basic, Delphi, 
any modern C++ environment, Power Builder, SQL 
Windows, etc. One drawback is that it only supports .BMP 
and .DIB formats. 


7" Also bundled is a ‘TitleSpy’ custom control that 
P adjusts the colour, font, orientation and size of the 
Title Bar of any form, picture box, frame, etc.. This 
control can make the Title Bar tiny as it is in the VB 
ToolBar, or as large as you like. It also allows you to 
have a third Button on the Title Bar. Put any picture 
on it and respond on the Click Event. You can append 
custom items into the System Menu and receive 
events when users choose them. The “TitleSpy” 
custom control can also be set for the form to be 
¢ always on top of all other windows. 


f The ‘MCursor’ Custom Control allows you to 
E customize the Mouse cursor and lets you use it with 
q any control. You can assign any icon or any BITMAP 
$ to the Mouse Pointer and also use the ‘JumpIn’ 
¢ feature to jump the cursor to the centre of the spied 
; control. You can aiso set the HotSpot of the cursor. 


. The ‘PopHelp’ custom control helps your application 
q to have that professional look! Like Excel or 
. » Microsoft Word, your program can contain a PopHelp 
q window. PopHelp allows you to see the text in tag 
property of any control when the mouse cursor is 
moving over the controls region. Using Mouseln and 
== MouseOut events you can also create your own status 
bars. 


A Professionai version of TurboPack, available Mid- 
September, contains an enhanced Hotmap control 
featuring the ability to make Hotmaps transparent, 
autolabeling, customised label fonts and colours and 
border colouring; A ScrollDial custom control providing 
easy navigation through a long list of items or a large 
amount of information. ScrollDial can be used as an input 
device or as an indicator of value, such as controlling the 
sound of a computer game or to view the time elapsed in 
a timed process; The SLinputSPY custom control 
provides your application with notification of any mouse 
or keyboard events. 


At the moment, there is no documentation provided with 
the product, other than the on-line help. Despite the lack 
of documentation and image support, TurboPack is a 
worthy addition to your collection of development tools, 
especially for games, EIS, and mulitmedia designers, 
where user-definable hotspots come in very handy. 
TurboPack is priced at $219 and is available from GUI 
Computing, phone (03) 9804 3999 for details. 
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THE CONFERENCE 


CLIENT SERVER s Rapid Application Development for Client/Server apps really feasible? 
What’s the best way to upsize from desktop databases? Which back end is best for you? Hear some 
of Australia’s leading exponents tell the tale in person. 


Winpows® '95 A new user interface, a new API, 32 Bit operation. All this and more 
presents a major challenge for all developers. 


DELPHI Where does Borland’s new tool fit in the VB programmer’s toolkit? 
Where do you start in deploying Delphi and how hard is it? We have special Delphi sessions devoted 
to just these important questions. 


OLE anp OCX There’s more to OCX than just 32 Bits. And more to OLE 2 than meets 
the eye. Sessions are scheduled on development, deployment and use of this key technology. And 
you'll be able to see the range of OCX controls in action as well in the VB Laboratory and talk with 
the developers at the VB Exhibition. 


TEAM DEVELOPMENT More and more VB development involves multiple programmers. We look 
at the issues and answers - from both the user and developer perspective. 


THE GREAT DEBATE During our Cocktail Party, hear the Great Issue of VB debated... and you 


get to pick the topic! 


AFTER DINNER On Day One, hear the VB Masters give their best hints in a panel 


discussion from 10pm. 


THE SPEAKERS 


KEITH PLEAS 
session with Chris Kinsman on developing Windows °95 User Interfaces. Keith is an independent 
consultant based in Redmond and a regular speaker and writer on OLE and related Visual Basic 


GarY WISNIEWSKI = Gary will be discussing the Win32 API and developing high performance 
database applications. Gary is the author of TrueGrid and has presented at numerous conferences. 


CHRIS KINSMAN Chris will be examining the thorny problem of managing distribution of 
applications in the brave new world of OCX and Windows "95, as well as co-hosting our Windows 


JOE ROBISON Joe’s knowledge of Visual Basic from the inside gave all delegates a solid 
headstart last year. This year, he will be discussing a range of Visual Basic 4 issues including OLE 


J1mM KARABATSOS As one of Australia’s leading VB and Delphi programmers, Jim’s session 
on Delphi for VB Programmers should be a ‘must see’. 


PLUS A HOST OF OTHERS... from both Australia and overseas. 


SEE THE NEXT VERSION OF 
VISUAL BASIC” IN ACTION! 


REGISTRATION 
So W ar Yes, please register me for Visual Basic Australia '95. 
I wish to attend : 


MAGAZINE QO Melbourne (Carlton Radisson) QO) Sydney (Airport Sheraton) 


eg; we | Postcode : 
Be » a 
Fax : 


Registration Fee : 

Less 

AVDF Black Label Discount 
Corporate Discount 10% 


3 or more Delegates. 
All registrations must be submitted together. 


Early Bird Discount (Bookings before July 31st) 


.<58n. 
4 BEREERL 
aT | N 
Tora ily 


Total Payable 


I wish to pay by : 0 Cheque O Bankcard /Mastercard/Visa 


Card Number : 


“TTS ERE Name on Card : 


GUICONPUTING © [espixyDaves 
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Toys R Us 


Dinosaurs ano Us 

If I never see another mainframe it’il 
be too soon. Uploads, downloads, in 
my lady’s chamber. Actually there 
was far too much of the former two, 
and almost none of the latter, 
although I did make some interesting 
friends. 


Mainframe people seem to vacillate 
between denigrating PC’s as toys and 
defensively telling me that they can’t 
efficiently use data in the normalised. 
structures I keep offering. And DB2 
apparently doesn’t do __ stored 
procedures. I thought mainframes 
were supposed to be advanced. 


The problems I keep encountering arc 
largely due to limitations in 
mainframe development tools, which 
can only be described as neolithic. 


I’m rapidly reaching the conclusion 
that, yes, mainframe development 
procedures are rigorous and 
disciplined, but this is only because 
they have to be to accomplish 
anything at all using stone age tools. 


This is not to say that PC developers 
couldn’t learn a thing or ten from 
mainframe developers, but if we learn 
the lessons and apply the disciplines, 
we il have ’em for breakfast. 


The dinosaur/mammal analogy is 
startlingly applicable. They’re huge, 
powerful, ponderous and disciplined 
in their movement because you have 
to be when you're a foriy ton lizard 
with a brain the size of a walnut. 


PC software, on the other hand, is 
small, smart, fast and sloppy. Quick 
and dirty, and far more able to 
respond to rapidly changing 
environments. And we all know who 
had the last laugh... 


A Coot Toot 

Oh, yeah. I did get a new toy. It’s 
called TextPad, and it’s absolutely 
fabulous. It comes on a setup kit of 
one disk containing both 16 and 32- 
bit (Win95 ready!) versions. 
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So ‘what’s wrong with Notepad?’ 
ask NT users, who don’t have a 64K 
limit. Well, how about unlimited file 
size, an MDI interface, search and 
replace, wickedly fast searches across 
multiple files, and file comparison? 
What if I said that double-clicking a 
listed occurrence will cause the file to 
open with the cursor on the matching 
text? How about being able to choose 
your display font, or do conversions 
between unix, Mac and DOS text file 
formats? Or block indent/outdent 
like the VB editor? Or force case on 
a selection? This is one cool tool. It 
is my editor of choice without the 
cloistered confines of VB. 


SQL Sewer 

I must confess to being not totally 
satisfied with SQL Server, cither the 
Microsoft or Sybase versions. It isn’t 
as platform independent as either 
vendor would lead us to believe, and 
the interface tools leave a lot to be 
desired, particularly in the Sybase 
version. The Microsoft product is 
somewhat easicr to come to grips 
with. This is just as well, since 
Microsoft support is practically non- 
existent, unless you want to pay a 
million dollars an hour. 


Sybase support is much better, which 
again is just as well, since the 
product itself can be a right pain to 
use. It’s nearly as syntactically fussy 
as COBOL, and for no good reason. 
The parser needs a /ot of work. I 
can’t really bag the editor, as it 
doesn’t really have one. (Not with 
the NLM implementation for 
Netware. ) 


They give you isql, which has the 
look and fecl (and nearly all the 
uscability) of edlin, but supplying a 
decent interface is left to the client 
software. I guess that’s fair. 


Sybase supplies a wizzy new 
Windows DB management interface 
with System 10. Use under 16-bit 
Windows requires a_ particular 
version of Win32S. 


Peter Wone 
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Then you can install the DBM 
software, and that done you'll find 
that it just doesn’t work. On the bright 
side, 32-bit Freecell works a charm, 
which I suppose is something. 


So, on advice, we got DB Artisan. ’'m 
told it’s one of the better third party 
tools for Sybase SQL Server. It some 
ways it’s pretty cool, but it’s 
dreadfully modal. You can’t save a 
stored procedure until it compiles 
cleanly. But you can’t check the 
spelling of table or ficld names or 
anything else without closing the 
modal stored procedure editor. To do 
that you have to abandon your stored 
procedure... 


I’ve been working with 300+ line 
stored procedures. Light a candle for 
me, and praise the Lord for TextPad 
and cut’ n’ paste. 


While a query or stored procedure 
runs, you get a system modal dialog 
showing elapsed time, rows fetched 
and a globe. It spins, which is nice, 
but I would rather task out to some 
other work. 


But wait, there’s morc! Sybase 
updated the way SQL Server worked 
in System 10, but didn’t update the 
shipped drivers. I think this is because 
SQL Server’s roots are in unix.’ If you 
cancel a query or stored procedure, 
the cancellation works but DB Artisan 
locks up. With a system modal dialog 


up. 


But wait, there’s still more! No steak- 
knives, but if you use Ctrl+Alt+Del to 
kill the process, generally you get 
ProgMan back. Then when you run 
something (anything) you get thrown 
out of Windows into an EMM386 
exception. 


Just when you thought it was safe to 
log back on the server... 


Microsoft supplies much better tools, 
which is to say they work. 


Instead of neolithic tools you get 
bronze-age tools. I can see no good 
reason why they can’t supply an 


interface a la Microsoft Access. On 
the bright side, Microsoft has 
managed to make the spinning globe 
non-modal, 


Tunes Wich Oucuta Be 

I think what we really need is a 
special property on each form. We 
would be able to assign an array of 
integers to it. OK, it’d actually 
contain a far pointer to the first 
element of the array, but the effect is 
the same. These integers would be 
Windows messages for which we 
want events to be fired. There should 
be an event: 


Form SpecialEvent (hWnd%, 
wMsg%, wParam%, 1lParamé&) 
and another form property 


SynchronousIntercept that defaults to 
False. 


Of course it would be even cooler if 
this were incorporated into all 
controls, but it’s a bit late for that. 
SpyWorks lets you graft it onto forms, 
but I reckon it should have been there 
from the word go. 


Mone Tunes Wuich Are 

About three weeks ago I wrote a 
compiler and a pcode interpreter in 
VB, as well as an infix to postfix 
expression translator. 


It uses a table of tokens, against which 
it attempts to match token strings 
extracted from an input string. When 
a token string doesn’t match a 
recognised operator, it tries to match 
it in a table of variables which looks 
suspiciously like my good old Params 
table. Failing that, it attempts to 
convert it to a number. 


If that doesn’t work it looks in a table 
of functions (named expressions 
suitable for the compiler) and if that 
doesn’t work it reports an undefined 
token. Punctuated tokens are 
supported by means of the square- 
brackets notation a /a Jet SQL. 


There are function tokens 
Fetch (Database$, Tables, 


Field$, WhereCondition$) and 
FetchString(Database$, 
Tables, Fields, 


WhereCondition$) which pull a 
value from a database. 


Now I can pull a formula from a 
database and evaluate it. A user 
configurable function, editable at 
runtime. 


Later T’ll extend the token libraries 
and the pcode interpreter, and turn it 
from an expression evaluator (cool 
though that may be) into a full-blown 
language. 


If I implement direct support for API 
functions, it could be rea//y useful. Is 
anyone interested in Forth for 
Windows, with direct API support, 
callable from VB? 


Which leads me back to SQL Server. 
Mark will go absolutely spak when 
he finds out that, not satisfied with 
either Jet or Microsoft/Sybase SQL 
Server, I have decided that I should 
write a decent SQL Server. 


1 mean, I’ve broken the back of 
writing a compiler. I have a lovely 
AVL tree algorithm’ and VB’s file 
handling is surprisingly efficient 
provided you ensure reads and writes 
occur in blocks which are multiples 
of 2K (operating system pages). 


Way it Doesw’t Work 


One of the things that annoys me 
about the Jet engine and Microsoft 
and Sybase SQL Servers is that they 
all lock pages rather than records. 


If you are in the habit of using 4-byte 
integer surrogate keys for everything, 
you get 512 index entries per page. 
So every lock involves at least 512 
records. If you use a 2-byte surrogate, 
there are 1024 incidental victims of 
each record lock. This can be a jolly 
nuisance. It absolutely ruins 
concurrency. 


If, as | am wont to do, you use a 
surrogate primary key, you'll even 
have concurrency problems adding 
unrelated new records. Counters are 
inherently clustered. 


Tuey Ouctta 

I was looking at why ail these 
engines indulge this spectacular 
piece of antisocial stupidity. It’s 
because (I think) if I lock a record, 
and you lock a record, and they’re on 
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the same page, and my changes are 
written to disk, and then your changes 
are written to disk, your page write 
will clobber mine because they’re the 
same page. 


You'd think they’d just merge in the 
disk cache at the server, but the 
implication of this is that a page 
cannot be written from the cache to 
disk while anybody has a lock on any 
record in it... unless you write the 
page to disk, committing the update, 
but also keep it in cache while its 
usage count is greater than zero, 
much as FreeModule() and 
FreeLibrary() don’t actually unload 
DLLs or modules until their reference 
counts are zero. You can check this 
out (for modules, anyway) using 
LoadModule(), GetModuleCount() 
and FreeModule(). 


This strategy is only obvious because 
I, as a user of both the API and 
various DB engines, have a bird’s eye 
view and 20/20 hindsight. 


SQL Server is ancient compared to 
most Windows software. It comes 
from the unix world, which probably 
accounts for its hideous interface. 


Regarding Jet, there is no excuse. I 
suspect Méicrosoft’s right hand 
doesn’t know what its left hand is 
doing. Surprise surprise. 


1 ver.902.10.2.4G.rev6.2a build 
26.40.6 but you'll need to get the 
SCO drivers (build 866b). 


2 Adel’son-Vel’skii and E.M. 
Landis did some magnificent 
work in 1962 on self-balancing B- 
trees. 


Trees maintained using their 
algorithm have search times of 
order log n, and exhibit 
pathological behaviour of 1.44 log 
Nn. 


Forron’s Note : 
No, Peter won’t be re-writing SQL 
Server in VB. 


Then again... 


se 


InfoPower is the best Database add-on for Delphi 
that we have seen and essential for your Delphi 
toolkit. 


InfoPower provides Delphi with the power that 
TrueGrid Pro and Data Widgets provides to VB! 
(and made TrueGrid the best VB add) 


InfoPower is a library of very powerful native 
Delphi data-aware components that are 
automatically installed into Delphi's IDE component 
palette. InfoPower subclasses Delphi components 
to create turbo charged versions of Data sources, 
Grids, Queries, Combo Boxes and Lookup Dialogs. 


InfoPower includes data aware classes for QBE, 
incremental searching, editing memos, and dialog 
versions of lookup combo and list boxes. 


InfoPower's Grid control permits in-grid dialogs, 
lookups, check boxes, buttons, hot spots, memo 
editing windows, incremental searching, lookups 
and in fact any user defined process. 


InfoPower is available for $255 ($365 with source 
code) until 31 August when the price rises to $325 
($465 with source code). 


OTHER DELPHI 3RD PARTY PRODUCTS FROM AERONAUT INCLUDE: 


ACCOUNTING GRAPHICS, PLOTTING & Delphi 
Accounting for Delphi IMAGING King Calendar 
Business Builder Graphics Server SDK KSCalendar 

Graphic Solution Pack OLE Automation Client 
COMMUNICATIONS Light Lib for Delphi Orpheus 
Async Professional for Windows WinG Visual Pros for Delphi 


Fax Software 


Reviewed Doug Mason: “InfoPower is a library of 
data-aware, native, Delphi components, which 
significantly exceed the functionality of the Borland 
equivalents. Being based on existing Delphi 
components, they deliver their greater functionality 
without making any negative impact on the 
development, distribution or performance of an 
application. 


Using native components as opposed to 
incorporating VBX's enables Delphi programs to 
load faster and respond more quickly to users 
interaction. Upon installing InfoPower I switched 
over immediately and had no trouble harnessing its 
full power.” 


Doug Mason will be showing InfoPower at the July 
meeting of the Australian Delphi User Group 
Meeting at AeroHQ on 5 July 1995. Come along 
and say hello. 


For more information about InfoPower call 
Aeronaut's Fax on Demand Fax Server at (02) 
436 1193 and enter code AFOD 5945. 


Visual Tools 


INSTALLATION 
CONVERSION Blaise Install Library for Delphi REPORTING 
Clip2Delphi Crystal Reports 
VB Conversion Assistant MAGAZINES & BOOKS TMail 
Magazine - Delphi Magazine 
DATA ACCESS Magazine - Delphi Informant SCREEN DESIGN 
Delphi/Link for Lotus Notes Book - Delphi Unleashed AutoSize Component for Delphi 
Rocket Book - Delphi for Dummies NOSC 
Book - Delphi Programming MoneyBox 
CODE EDITORS & Explorer 
VERSION CONTROL Book - Teach Yourself Delphi For a more extensive list of these 


ED - The Programmer's Editor 


PVCS MISCELLANEOUS 
Component Toolbox 
Eschalon Power Controls for 


products call Aeronaut's Fax on 
Demand (AFOD) 02 436 1193 
and ask for code 2405 


AERONAUT INDUSTRIES 
Ground Floor, 48 Chandos Street, St Leonards NSW 2065 


Tel: (02) 436 1175 


Fax: (02) 436 1184 


AFOD: (02) 436 1193 


Common Diatocs in VB 


A drawback of the standard Windows common dialogs 
DLL is that it is a dumb data collection mechanism. 
There’s no way to get your own code in there to modify the 
behaviour 1n response to user interaction. 


In response to a need to do this, I developed a form and 
module pair for inclusion in projects requiring 
behaviourally modified file dialogs. These behave, for all 
intents and purposes, just like the standard ones. But they 
use a callback technique which expects a user supplied 
routine called 


Function SelectFileDlgCode (Index As# 
Integer, fqp As String) As Integer 


to respond to the contents of fqp (fully qualified path) and 
Index. 


Note that fqp may not be valid. It is validated only when 
the user clicks OK or presses Enter. The user may well 
have typed garbage in the filename textbox and clicked 
Cancel or UserDefinedButton, so if you care what fqp 
contains (depending on the value of Index you may not) 
then check it. An easy way to do this is trap for error 76 
(Path not found) and attempt to pass fqp to Dir$. 


Index tells you which of buttons one to three has been 
clicked; OK, Cancel or UserDefined respectively. What 
these buttons do is entirely up to the person writing 
SelectFileDlgCode. 


The dialog is 
invoked using 
PopFileDialog, 
which is defined 
as follows: 


HelpContext As Integer) 


PopFileDialog (digTitle As String, 
FileTypes() As String, hWnd As Integer, ¢ 
UserDefinedButtonCaption As String, ByVald 
DefFOP As String, HelpFile As String, ¢ 
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When hWnd contains the window handle of a form or 
control, the form or control will be grafted into a container 
below the buttons on the file dialog, and automatically 
grafted back onto its original parent when the dialog 
closes. You will get a GPF only if the dialog cannot close 
normally and the program abends, under which conditions 
a consequential GPF is the least of your worries (if a bit 
annoying). If you don’t like rebooting your box every ten 
minutes get serious and get NT. 


This is a wicked piece of code. It’s short and sweet, and 
it’s complete right down to the ability to make network 
drive assignments. It hooks into WNetConnectDialog in 
USER.EXE and tests for the presence of any Windows 
network DLL (actually it asks WNetGetCaps). To find out 
what type of (if any) net is prescnt, you can call the 
IsNetPresent%(NetType™) function. Several constants are 
defined in FILEDLG.BAS as well as all the requisite API 
functions. 


The callback function itself is a technique worth 
investigating. I find it indispensable. It makes things much 
easier when I’m trying to make VB code generic. OK, so 
my VB code looks like C. So does my SQL code. I can 
even make COBOL look like C. Real programmers can 
write C in any language, although sometimes they get 
narked at the absence of pointers. 


Yes, I know, Uncle Bill, it’s for our own safety. Yeah, 
_...., sure. I want pointers and if I don’t get 

*em soon I might be tempted to dump VB | 
|for Delphi. Think about that. 


Tyrants seize pointers. Free men keep 


The parameters are all self explanatory except for 
FileTypes and hWnd. FilesTypes is a string array in which 
a list of entries for the file-type-filter simple combobox. It 
can be non-dense if you wish and there is no requirement 
to indicate the size or populated region of the array. 


Mi Qsort 


GENERATING UNIQUE FILENAMES 


This is a neat trick for generating unique file names I 
came across somewhere out there in cyberspace. It's come 
in pretty handy for me, so I felt I'd better pass it on to all 
and sundry. 


Declare Function GetTempFileName Lib? 
"KERNEL" (ByVal cDriveLetter As Integer, ? 
ByVal lpPrefixString As String, ByVal? 
wUnique As Integer, ByVal lpTempFileName? 
As String) As Integer 


eee them. The right to keep and bear 


pointers. 
hBillG = FindWindow(0, ‘Microsoft CEO’) 
iRetCode = PostMessage (hBillG, ¢ 


PW_GIMME POINTERS, 0, *(‘No pointers is a? 
pain!’)) 


Dermot Balson 
Independent Developer 


'This does the work--—-==---> 
Function TempFileName() As String 
Dim tmpF As String * 100, i as integer 
au GetTempFileName(0, "Kit", 0, tmpF) 
TempFileName Trim (tmpF) 
End Function 

‘TALIS 18 how to use. 2t 

Sub MySub () 

Dim tmpFile As String 
tmpFile TempFileName () 
MsgBox tmpFile 

End Sub 


mee NS SESS SE PP A TT SS ES I EES SEE I LEO, 


19 


Australian Visual Developers Forum 


" i 
Halal 
hina 
iw 
Oh 
ny 
ul ll 
tt 


S 


@ 
i 
I 


“ 
mh 
Aw 


mi 
en 


i 
bhi 
ity 
ll 
HA 
(rn 


«" 


a" 
tl, 


(qe 
iin 


OS 


leva 


ae 


nd 
Mnuiley na 2! Sub 


Avotoing Proptems With INTERCEPTED Messaces IN SpyYWorks-VB 


You may notice that occasional General Protection Faults (or other run-time errors) happen when you 
try to perform complex actions during Subclass or Hook events. The reason this happens is that the 
SBC. VBX, SBCHOOK.VBX and SBCKBD.VBX all stop the message handling portion of Windows 
while an event takes place. If the code within the event takes too long, the messages start backing up. 
and eventually cause an error. Because the amount of time before an error takes place depends on the 
number of messages being sent (and therefore on the number and nature of other programs being run at 
the same time), these kind of errors can be frustratingly rare. 


Usually, this problem can be solved by receiving "posted" messages, which do not require that the 
message handler stop during the VBX event. This can be accomplished by setting the Type property to 
"Posted" in SBC. VBX, or by setting the Notify property to "1 - Posted" in SBCHOOK.VBX and 
SBCKBD.VBX. There are problems with this method. First, message parameters can no longer be 
changed. Second, messages can no longer be deleted before being used. Finally, the message is delayed, 
and may come to late. 


A way around this dilemma is to use the PostEvent property and DelayedEvent event in the SBC. VBX 
control. As an example, we can imagine a user trying to perform a time-consuming editing function 
whenever the user presses the "backslash" key. The function will not work in the time constraints 
required by the KbdHook event, but if a posted method is used, the backslash key cannot be prevented 
from being sent to the text editor. The solution is to split the code in two parts : the quick code that needs 
to execute immediately (checking that the key received is the correct one and discarding the key) is put 
in the KbdHook event. Then identifying long integer is placed in the SBC control's PostEvent property. 


Sub HookKbdl_ KbdHook (keycode As Integer, 
Integer, discard As Integer) 
discard= True 'get rid of the backslash 
If keystate And &H80000000 Then GoTo Bye: 
HookKbd1.Enabled = False 
Select Case keycode 


keystate As Long, shiftstate As? 


‘ignore KeyUp Event 
‘accept only one message per keypress 


Case 220 "backslash 
SubClass1.PostEvent=1 ‘Send a posted message 
End Select 
Bye: 
End Sub 


Now the time consuming code (highlighting the last character entered and copying it into the Clipboard) 
can be put safely into the SBC's DelayedEvent event. 


Sub SubClass DelayedEvent 
If (lvalue=1) Then 

SendKeys "+{left 1}" 

SendKeys "*c" 

os Enabled = True 


(lvalue As Long) 


"select the last character typed 
‘copy select text to clipboard 
‘turn the SBCKBD back on 


Hila Worvine wit Caps-Lock Durine Keysoaro Hooks 


When using SpyWorks-VB's keyboard hook to detect hot keys that use the Shift key, you may need to 
consider the physical state of the Shift key, for example: when detecting cases where the user must hit 
the Shift key along with another key. Because the state of the CAPS LOCK key can cause keys to be 
shifted, special detection may be needed to see if the shift key itself is pressed. 


For Example, if you want to have a "SHIFT-F10" key as a hot key, you have to detect both the Shift F10 
and F10 keys with the keyboard hook. The trick is to call the GetKeyState API function to determine the 
state of the Caps Lock key during the KbdHook Event. You can then do an exclusive or with 
SBCKBD’S shiftstate parameter to determine whether the shift key was actually hit. This example 
shows how to detect for the physical state of the Shift key. 

capslockstate%’ = GetKeyState (VK_CAPITAL) 'VK_CAPITAL is &H14 


If (capslockstate% Xor shiftstate) Then'the shift key was physically 
pressed. 


No Linits 


Dithering, morphing, FIF, and GUI? I'm sure these are all 
familiar terms, yet can you actually explain what they are 
and how they work? 


If not, then don’t let the emerging world of multimedia 
pass you by, grab a copy of "The Magic of Computer 
Graphics" ($99.95), a comprehensive journey through 
useful terminology and fantastic effects. With over 400 
pages of well-defined terms, examples, coloured images, 
and a convenient glossary for reference (although this 
could have been more detailed) this text will broaden your 
knowledge, whether or not you work in the graphics field. 
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book comes packaged with a valuable CD-ROM, which 
includes trial versions of Adobe Photoshop, Elastic 
Reality, and trueSpace. Thus, while instructing you how 
to achieve certain effects you can jump to your computer 
and follow the tutorials for reverse cropping, using masks 
and creating painter-style art from photos. The book also 
boasts 64 pages of true-colour photos and gives up-to-date 
information on the latest hardware, software, and 
associated reference books available. 


Many methods of storing images have been developed and 
virtually none of them are compatible with each other. 


After informing you on the 
popular forms of computer 
graphics (including videos 
and cartoons done through 
PC based imaging), the text 
moves into greater depth 
with a discussion on the 
history of graphics, the 
capabilities of camera and 
video which eventually trace 
to the technical aspects of 
scanning and the actual 
process of editing images. 
Along with details on the 
manipulation of graphics, the 


of a pixel 
Half-tone: S 
(greyscale): 


light). 


24-Bit Colour: 16.7 million colours per. pixel, divided 
into 3 bytes: 1 each for as green & blue eipsittamaa 


Hue: Colour without bs ightness ‘ 
Saturation: Degree to which colour is undiluted by like applications, compression, 
white light ¢ 100% saturated means ‘it contains no white 


Raster images: Files store every Sets of the image in 
a sequential format, as opposed to 


Metafiles: part raster and pail veer (inchides pixel. 
information and mathematical descriptions of lines) 


Some file formats can even 
destroy parts of your image 
while .you are attempting to 
compress it. A chapter is 
devoted to the storage of 
graphics, including the various 
| formats and associated features 


strengths and weaknesses. What 
more could you ask for? 


i“The Magic of Computer 
Graphics” is an inviting text, 
demonstrating how, with a little 


osed of lines 


MiQsoft 


THE PIXELATOR 


Whenever you set the enabled property of a control to 
false, the text in that control changes colour to grey. This 
is not always a desirable effect. In fact there have been a 
number of times in my life where this effect was a royal 
pain. There is a solution. The best way to describe it is for 
me to give you the code and for you to then just do it. 


t 7 Belessepe (Texel. Rnd, EXENDC) 


knowledge, you can create 
anything imaginable. 
Stephan Grieger 
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The important thing to remember is that by default a text 
box does not have a Device Context as it is not a graphical 
control. For this reason we have to get the DC from 
Windows itself by using GetDC. Once we have it we can 
draw to the control. When we have finished changing the 
colours, we need to release the DC or pretty soon Windows 


Decalarations Section: if > will hang. For x = 1 To Picturel.Width | 
Declare Function GetPixelé Lib "GDI" (ByVal? | Exactly the}. fer ¥ =. 1 To | 
hDC%, ByVal x%, ByVal y%) me teclniae Picturel.Height 
Declare Function SetPixels Lib "GDI" (ByVal? a Colors =e 
hDCS, ByVal x%, ByVal y%, ByVal Colors) can be applicd | Getpixel(Picturel.hDC, x, y) 
Declare Function GetDC$ Lib "User" (ByVal? to place a t = SetPixel (txtHDC, 3 
HWNDS) Declare Function ReleaseDC% Libd bitmap into a/*, Y, Colors) 
"User" (ByVal hWNDS, ByVal hDC$%) Next yv 
Actual Code: text box, label, Next x 
Dim x, y, t, txtHDC list box etc. If a a ~ 
txtHDC = GetDC (Text]. hWnd) applying this code to a button hhoweren, you will also need 
For x = 1 To Textil.Width - 2 to do the code on Mouse down. When the state changes, 
For y > | Oo tee gee 2 refresh to draw the new state. Again 
TfeGerPixel (UXtHDC, x;y) <> SHEFFRFEF NE ees 8 ey : ab: : 
Phen : = remember to release the Device Context of the text box 
t = SetPixel(txtHDC, x, y, &HFF&)|when done. 
sect p Ht Note: This technique requires the application to read every 
Next x pixel in a bitmap and as a result can be slow if large bitmaps 


are used. Try to keep the bitmaps small. 
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: Barry Sumpter, GUI Computing 


As we all know ‘Point and Click’ is what 
windows and Visual Basic are all about. I 
love solving problems with code. The only 
nagging problem while relishing in the 
afterglow of solving a complex problem, is 
knowing I probably spent too much time on 
the solution. 


So what does this have to do with Crystal 
Reports Pro Version 4.0? For me it’s all 
about supporting clients in a professional 
and productive manner. Doing it right, 
doing it quick, and making it look great. 
And that is CRW Pro 4. 


No more hour after hour of coding trying to 
get the ‘just right’ column alignment, 
special layout, or special effects. If you 
want less VB coding, you can use the 
custom control in VB and assign the 
reportname and two or three other 
properties. That is it for VB coding. And 
for those absolute VB control freaks there 
are more that 80 print engine property 
functions. 


How about graphing/charting? Spice up 
that report with on screen colour 
graph/charts and 'shades of gray' printed 
graphs. Data access? Links to MS Access, 
ODBC, and SQL Server. Different output? 
Try Excel, Word 6, Text, and plenty of 
other formats. CRW Pro 4 even has its own 
report distribution wizard. 


Enough of this sales hype! This is a full 
blown 'no more muck'n around’ reporting 
tool for the serious VB _ professional. 
Warning: This tool is not for the 'keep it 
simple’ - 'total control' programmers who 
like printer.print or picture.print reporting. 
The advanced topics like ODBC and SQL 
server are not for the ‘faint of heart’. 


Although you can have a report up and 
running in a few minutes I suggest you 
allow yourself 3 to 5 working days to really 
see what CRW Pro 4 can do. After that 
each report will take less and_ less 
development time allowing CRW Pro 4 to 
pay for itself on the first few projects. 


So Get it! Use it! Impress the hell out of 
your clients! And like me end up loving it! 


— Ross Mack 


GUI Computing 


Visuat DLL 


~ “Fan C Coenaty Now, rae Paw was Gone.” 


One of things that has always been missing from the capabilities of 
Visual Basic is the ability to create a DLL, I remember hoping that it 
would finally arrive in version 3! It seems simple doesn’t it? A DLL is 
a stock part of Windows development, even Visual Basic programmers 
use them all the time in one form or another, it just has not been possible 
to create them with VB. 


When the need to construct a DLL has arisen VB programmers have 
been forced to a work-around or to delve into the misty depths of C++ 
just long enough to achieve what they want. For me, personally, the step 
has instead been to Turbo Pascal for Windows (which performs 
amicably as a DLL production facility) and, in more recent times, to 
Deiphi. But the problem remains the same, you have to start thinking in 
different - perhaps alien - ways to get a simple DLL coded. Visual DLL 
from Simply Solutions is the cure. 


This disarmingly simple product from Simply Solutions acts very much 
like a ‘DLL Wizard’ for Visual Basic. You simply tell Visual DLL what 
you want in your DLL, what functions or procedures you wish to build 
and what parameters they will require. Then Visual DLL creates a VB 
project for you with everything that is needed - you just fill in the code 
that does the work. 


Sitregty. Sakon vig 
Then you simply : Se 
compile the project 
from VB and then 
again from Visual 
DLL. The end result 
is a true windows 
DLL with a text file 
giving the VB style 
declares as well as 
-h and lib files 
which you caneither ™ 
delete or collect and give to your C++ friends. Just kidding. 


Oacuie -fiwrecen~ CER 28) 
<5 Spsnsy mes 


What could be simpler? Given the relative sparseness of Visual DLL 
sample code it is good to see they have covered some of the pivotal 
issues. Included in the sample code are samples of a Control Panel 
applet and handling bizarre structures. Another shows how to build a 
File Manager extension. You could quite easily strip these down to 
templates for your own code - very useful. 


Be warned, however, the art of writing and testing DLLs is a little dodgy 
at the best of times. You will crash modules and get runtime errors if you 
start being too inventive with DLLs. This can be a little frustrating but 
keep WPS (Windows Process Status from the VB 3 CDK) handy and be 
prepared to reboot occasionally. Fortunately Visual DLL does provide 
simple details on how to test your DLL code using VB’s debugger. | 
have found that DLLs produced by Visual DLL work most reliably when 
called from VB. I believe that other apps have trouble with the way that 
VB binds to other DLLs or controls, but this is not insurmountable. So 
if you want to write DLLs to support VB code this is a must have, if you 
want to write DLLs for any other reason it is still a great solution. 
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CREATING A TAB RULER 


Referring again to the article I published last month on 
Print Previewing, I have now come up with a solution for 
creating a ruler which can resize borders. In that article I 
made the statement that you should use the BitBlt API call 
to make the thing work. After actually sitting down and 
thinking about that again, it now seems that I was wrong. 
I apologise to anyone who was looking at writing this 
function using this call. There is an easier way. While the 
method I am about to describe does not look exactly like 
the Microsoft Word ruler, it is actually quite adequate and 
works very well. 


When developing this routine, I originally used three 
labels and I moved them around according to where I 
placed the margins. However, this technique, whilst it 
worked, did cause severe flickering and thus was deemed 
inadequate. As a last resort, and this will shock a few 
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Stephan Grieger 
GU! Computing 


pointer. The net effect is a ruler, which looks like: 


As you can see we don’t have the nice 3d effect around the 
non printable area of the ruler but who cares? With a little 
coding you can get the 3d effect. 


The nice thing about this routine is that the movement of 
the margin is smooth and very fast. It also doesn’t care 
about the characters and it simply inverts the part of the 
character you are over. Very cool. 


Whilst its not everybody’s cup of tea to go and design an 
entire print preview window, this technique can be applied 
for other purposes. For example, your own flood fill 
control to show percentage complete. 


readers, I turned to the API for 


picRuler.ScaleWidth - 1)) Then 


assistance. There is a neat call 
called InvertRect found on 
page 311 of Daniel 
Appleman's API bible. What! 


HowTo Do It: Draw a picturebox on the 
screen and set its ScaleMode to Pixels. In 
the MouseDown event place: 

If (x <= Rectangle.Left + 1¢ 
And x >= Rectangle-.Left - 1)¢ 


it does is invert the colours of or (Rectangle.Left = 0 And (x@ 


a given rectangle. 


This code firstly checks to see. 
if the mouse is over the 
margin. Ifit is then change to 
an appropriate icon for sizing. 


Secondly it checks to see if we 
are dragging, If so then redraw 
the rectangle to get rid of it 
and then draw it again to 
invert the region. In the 
MouseUp event place: 

dragging = False 

screen.MousePointer= 0 
Tell VB that we are no longer 
dragging and reset the mouse 


= met panclince os Mariontonks MediaShop eNO cecercee eeceee 
We'll ihrow in A copy of CameraMan 2.0 for only hall price ------------------ ee 
Plus a copy of ObyectLibrary for only $80 (instead of $140 RRP)-------------- 


Only until July 3 1sr, 1995 


9 Maud Srreet 


|= picRuler.ScaleWidth Or x =9 

;picRuler.ScaleWidth - 1)) Then 
dragging = True 

|End LE 

Rectangle is a global type of Rect. (checks 


screen.MousePointer = 9 
Else 
screen.MousePointer = 0 
End If 
End If 
While dragging 
Call 
InvertRect (picRuler-hpc, # | 
Rectangle) 
‘Draw the fill. 
: If x > 0 And x <=d | 
picRuler. ScaleWidth Then 


to see if the mouse is currently over the Rectangle.Left = x | 
current position of the margin). If it is, Rectangle.Top = 2 
‘tell VB that we are in drag mode. Inthe ae ce oe ae | 
. icRuler. - | 
MouseMove event place the following. P Eoocangle potion @ | 
Dim er : = picRuler.ScaleHeight - 2 
If Not dragging Then Call 
If (te <=2 InvertRect (picRuler.hpc, # | 
Rectangle.Left + 1 And x >=? Rectangle) 
Rectangle.Left - 1) And? End Lf 
Rectangle.Left <> 0) ord einai a ang 
(Rectangle.Left = 0 And (x =¢ Ana oa 
xit Sub 
picRuler.ScaleWidth or x =@ Wend 


Buyer saves $117, 70!! 


“$420 
$57.90 
$80 


Dealer Enouiries Welcome 


Cardiff South 


‘HE NEXT-GENERATION 


NSW 2287 Telephone / Fax (049) 243 480 
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ImaceKniee 1.3 


0: I've been struggling to get some code working with 
ImageKnife V1.3 for around 2 weeks mow, and I wonder 
if I'm allowed to give up and ask for a few lines of code to 
show me what I've been doing wrong? Essentially, what I 
need to do (in VB3) is : 


=> Obtain an image into a PicBuf. (Got that bit 


working) 

=> _ If greater than (x * y) pixels, resize it to something 
that fits inside (x*y) 

=> Create a palette containing 38 specific colours and 
no others 


= Remap the palette to this new palette, so that only 
pixels of the 38 exist 
=> Read the RGB values of every point and use this 
info elsewhere 
I have tried all sorts of picbufl to picbuf2 copying, 
resizing, imkreducecolors and so on, and have run the 
gamut of crror messages about ‘images must be same 
colordepth' , ‘no resource for error(137)', GPFs, and just 
plain stubborn refusal of images to resize. Over the last 
day or two I've resorted to setting assignmode and 
autoresize properties on an almost random basis in an 
attempt to get something working. Getting the RGB 
values seems to fail if I request an x,y pixel at the extremes 
~ eg pixel 200 of an image 201 pixels wide. I seem to have 
the imkRemapPal thing working at the moment, since 
jwhen I run an x/y loop to interrogate the RGB valuc of 
each point in the image, they all seem to match the 
original 38 values, but that brings up a couple more 
questions. Why do you have imkReduce colours take an 
ACTUAL number of colors (eg 236), but when you 
imkInit, you have to specify a colordepth as 4, 8 etc? What 
is the correlation between these two numbers? Why, when 
I do a loop to interrogate the RGB value of the x,y point in 
the PicBuf, does the mouse cursor rapidly flash from 
arrow to hourglass & back? My code is not doing it, and 
if it's going to do that in my released program, it's going 
to look a bit shabby. Any suggestions on how to stop this? 


TList — 


0: I am "gearing something up" using TList, and like it 
So far... 

Question #1: Is there a direct way to "expand all 
descendants" without traversing the list to expand each 
eligible element? 

Question #2: Is there a way to use tabs in the text string to 
achieve aligned data columns? How might I do that? 


Oe: HiUas ere aes eee 
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A: Ok, first I will talk about this "resize the image" 
problem. The AssignMode and ResizeMode property f 
work by processing and image based on another image. } 
On page 33 of your ImageKnife manual you will see an} 
image entitled "Marybeth". You will also sce another 

PicBuf with a pile of leaves in it. The resulting Image is} 
"Marybeth" at the size that the pile of leaves image was. } 
The trick here is that AssignMode and ResizeMode tell} 
the destination PicBuf to make the image coming into it] 
the size of the image that is ALREADY in it (not the size} 
of the PicBuf itself). Now on to bit depths. Most 
ImageKnife processes require the two images in question} 
to have the same bit depth. So basically you can't take a 24} 
bit image and remap it to a 8 bit palette. First, this} 
logically does not make sense, a 24 bit image does not} 
have a palette or pixels mapped to any palette, so you can't 4 
REMAP this to other entries as they are not MAPPED in} 
the first place. The first step needed to be done here is to}. 
make the 24 bit image an 8 bit image. ImkReduceColors}- 
is capable of doing this. After this has been done, you can 3 
the take the other 8 bit image with your 38 entries and 4 
remap the source image to it. : 


ImkReduceColors takes an image and reduces the : 
number of colors it uses. This would be useful if you 
needed to make sure that an image had no more than (for 
example) 100 colors in it leaving the other 156 open for 
use. ImkReduce colors will also make the image in 
question the lowest possible bit depth it can. So your 100} 
color example image would be made an 8 bit image if it} 
started as a 24 bit image. ImkInit creates a image in a 
PicBuf with all of its pixels set to a certain color. It also 
makes this image the size and bit depth you specified. 
There are two reasons we did not use a "Color Count" inf. 
this function. Reason one: since all of the pixels are one} 
color, it would be silly to make a 100, 200, 50, etc. palette. } 
Besides, you can always induce a palette on this "created" 
image later with imkRemapPal. Reason Two: When you 2 
create an image with all of its pixels set to one color you, 
should be only concerned with what the bit depth of that 
image is. This is why you have a bit depth (colorDepth) 
parameter instead of a color count parameter. : 


A: As for the first question, the answer is currently no. } 
The good news is it is planned for future releases. As for 
the second question, definitely. There is a property} 
TabStopDistance (in twips) which specifies the relative} 
tab positioning. This can be set at design time or run time} 
- unfortunately as a last minute add on property, somehow 
it was left out of the documentation. 
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Font Trap 


Q: I cannot get the data in my textbox to display in a non-bold mode. 


Visuat Basic 


Q: I have a Masked Edit Control thatf 
shows garbage in the masked property. If I 
highlight the bad mask, and hit delete, the} 
bad mask will go away and immediately} 
pop right back. Last weck, all of the} 
Masked Edit Controls in this same}. 
application went haywire at once when If 
attempted to change the BorderStyle}. 
property on any of them and crashed Visual} 
Basic with a GPF. What's happening? : 


A: Check the font definition - if is it SYSTEM, it only has one font E 


definition... most fonts have four definitions, Regular, Bold, /talic and 
Bolditalic. : 


Using a font that doesn’t have all four definitions will cause the 
Property to always return to the valid action. Be wary - a quick method 4 
fis to always design using MS Sanscrif rather than the System. : 


Courtesy of Tony Harris, email on jentonsoft@peg.apc. org 


A: The BorderStyle property is known to} 
cause problems with the MSMasked Edit 
control. This is described in article 
Q101257 in the Knowledge Base (GO 
MSKB). There is currently no workaround} 
except to avoid the BorderStyle property}: 
altogether. 


Spread VBX 2.1 


0: I am prototyping a simple application (a modification of an example 4 
from the Borland VSP)and I am having problems in getting formulae 4 
evaluated. Is Spread/VBX capable of evaluating spreadsheet-style F 
formulas? I have tried typing something as simple as "Al+B1" and - 
variants thereof with no result. I have also tried filling the cell in the E 
application code, again with no luck. What am I doing wrong? 


Q: How do you select the default windows 
colors for your forms. In other words, if I 
have dark grey window and I change that} 
color to blue, I would like my form also to 
resemble that change as Word and Excel 
change. This would give my users a more 
secure feeling about the application if the 
color scheme follows the rest of the system. 
Unfortunately, like so many new users off 
Windows, they love to change their colors. 


A: If you're entering a formula from the keyboard, you must preface it 
with an '='. If you have the EditModcPermanent property turned on, I a 
don't think you can enter properties from the keyboard. If you're doing 
it from your application, be sure to use the Formula property. Using the 
Text and Value properties won't work. Also, make sure that the cells 4 
that you're doing arithmetic on are float or integer type (CellType). 


0: I can't seem to be able to differentiate between no selection and only : 
one cell selected in Spread/VBX++ 2.1. In both cases I get the same}: 
values for SelBlockRow, SclBlockRow2, SelBlockCol and 
SelBlockCol2. If there is nothing selected (i.e. I have just the standard? 
rectangle around the cell) or I have one cell selected (i.e. I click on the. 
current cell while holding down the control key to make it turn black), a 
I get CurrentRow, -1, CurrentCol, -1. IsBlockSelected returns FALSE}. 
in both cases which is a bit strange. Is there anyway to differentiate the a 
two? I have AllowMultiBlocks set to TRUE, if it makes a difference. 


A: If you're using the API declarations from} 
the API help file that comes with VB, they 
have an error in them. You'll notice that in 
the following declaration... 

Declare Function 
WritePrivateProfileString Lib 
"Kernel" (ByVal? 
lpApplicationName As String, ¢ 
lpKeyName As Any, lIpString As? 
Any, ByVal lplFileName As@ 
String) As Integer 

..that "IpKeyName As Any, IpString As} 
Any" aren't being passed ByVal. If you} 
change this to "ByVal IpKeyName As 
String, ByVal ipString As String" it will 
correct this asian 


A: At the point where you are in your spreadsheet code, Row and} 
Column values will cach be -1 (their default) since they are not E 
continuously updated. Since you want to allow multi select, you need to a 
invoke the following: 

SS.Action = SS_ ACTION GET MULTI SELECTION 


That will determine if a multiple selection exists. You can then do your! 


a? @ block af calls was selected Tp CTRVEN JRAVOCK 
FTRCENICAL SUPPORT C0- va 


SS.IsBlockSelected Or SS.MultiSelCount 


‘do the task you want if this condition exists ELSE 
‘a single cell was selected 


"do single cell processing END IF 
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Cleaning Up Mah 
* Jenton Software 
Inherently, EVENT |LISTING 1. / | To overcome this, we can make use 
based programming uses | Sub CloseNewForm () of the form's TAG property - which 
the activities of the! routine called FO Gloss of) Porm works with text so the next 
: NewForm. Can be called from anywhere - 
form/control/item/OBJE programmer can follow what you 


CT as triggers, for the 
programmers to use in 
writing code. However, 
the triggers can re- 
iteratively call the same 
section of code several 


existing as it does in a separate module. 
Screen.MousePointer = Hourglass 
‘Code to finish and clean up whatever 
is going on. in your program... 
Screen.MousePointer = Default 
| frmNewForm.Tag = "CLOSED" 
"Following code triggers UNLOAD event 
on Form. As we don't want to waste time 
going through loop again - we've already 


idid. 


‘In the Load event for the form, 
make sure that NewForm.Tag does 
not contain the string "CLOSED". 
(In the Subroutine CloseNewForm 
| ensure that the word "CLOSED" is 


times, thus inhibiting 
the performance of the 
final product. One 
example is where the 
user is provided a Menu 
Item, a Command 
Button and the Control 
Box to perform the 
action of Unloading the 
form from the screen. 


segment, 

business. aks 
Unload frmNewForm 
DoEvents 

End Sub 


LISTING 2 
Sub cmdClose Click () 


CloseMyNewForm 
End Sub 


told the form, with previous code 
that it’s no longer open for 


‘Close from command button control 


; the only entry in NewForm.Tag. 


In the form's Unload event, test for 
the contents of NewForm.Tag. If it 
is "CLOSED", then just reset the 
Tag contents and carry on 
‘normally; otherwise fire up the 
subroutine CloseNewForm to clean 
up your data gracefully and then 
unload the form. 


The software has to 
clean up the data on the screen, or maybe activate another 
form and do some processing. Obviously the programmer 
was a clever fellow and placed the clean-up routine in a 
module separate from the Form. This code - 
CLOSENEWFORM (see Listing 1) does the mundane 
stuff, some clever stuff and then Unloads the form. 


The programmer then placed a call in each of the controls 
that could possibly close the form, ie. the Command 
Button, the Menu Item and the form's Unload Event. (See 
Listing 2 for the Command Button). When the 
CloseNewForm subroutine is called, it works fine all the 
way through - however it also triggers the UNLOAD event 
on the form which then calls the 
CloseNewForm - in essence getting the subroutine to call 
itself (isn't there a name for this?!). 


SQL Server Soro 


Interestingly, MS SQL Server will not automatically 
advertise its services under the following conditions: 


(1) LanMan security is not running (which by default it 
isn't, on a workstation) 
(2) You are not connected to a lan on which LanMan 


security is running 
This is because MSSS uses named pipes. In order to 
advertise services using named pipes it needs to know the 
name of the box on which it is running. It determines this 
by asking the LanMan security service. If that isn't 
running, no error or log entry is generated, but nothing is 
advertised either. The solution is ‘hat if you know this, and 


subroutine | 


LISTING 3 
Sub Form Load () | 
'Tell Form that it's available to be 
unloaded. Actually the Tag can be empty but 
you should get the drift from here... 
frmNewTask.Tag = "Unloadable"” 
End. Sub 


LISTING 4 

Sub Form Unload (Cancel As Integer) 

| ‘Tell Form that unload routine has 

|already been called once so don't do it 

again - alright...? 

| If frmNewForm.Tag = “CLOSED” Then 

| "Do Nothing- reset Tag Property... 
frmNewTask.Tag = "" 

| Else 

CloseMyNewForm 

| End If 


Peter Wone 
GUI Computing 


you know the box name, you can just type it in. The 
information is cached in the registry. 

The entry is in : 

HKEY LOCAL MACHINE\SOFTWARE\Microsoft\SQ 
LServer\Client\PrefServers 

and looks like this: 

0: REG_SZ : PW@HOME,sa 

1: REG SZ: (local),sa 

The second entry is especially interesting. I tried it out, 


after deleting the keys from the registry. If you don't know 
the box name, just use "(local)". It works. 
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Lookups:and ODBC File Creation 


I am trying to display a related data between different tables on a single form eg. 
: Order table has the project key ficld value and I want to display the project name on } 
the order form linked via the ProjNo field. 


& Mari Fart 

: There are several ways to do this; the best way to proceed depends on just what you } 
are trying to do. If you need to look up a single value on the form (ie in the 'header' | 
¢ part) then just use a DLOOKUP. 


If you have a lookup requirement in the detail part (the repeating part of an order) | 
: then create a query that relates the two tables and base your detail form on that. 


SELECT Order.*, Project.Name 
FROM Order, Project 
WHERE Order.ProjectID = Project.ProjectID; 


Does this make sense? Is this what you are trying to do? 


| Jun Karapatsos 
: Thanks Jim, it id the first option - display the Project name in the header part of the | 
| form. Will use DLOOKUP. 


| Mark Fier 

* Can anyone tell me if the ODBC specification provides for creation of files? As I 

| understand it, it only provides access to files. Specifically I am talking btrieve format | 
here, but it shouldn't matter. 


: Thanks 
Ben Nowist 


| Well, ODBC is an SQL-based protocol, so you use SQL to create tables. Try issuing | 
¢ an SQL statement like this : 


3 CREATE TABLE NewTable ( 


Fieldi Char(20), 
Field2 Integer, 
Field3 Char (5) ) 


nd see what the Btrieve driver does with it. Using SQLPASSTHROUGH will let you | 


$ access any special features of your server/driver. 


Jn 


z.aving trouble connecting Windows 
applications to Mainframe Data ? 


Oracle 


e VISUAL BASIC 
e Microsoft Access 
°e Excel 


¢ Microsoft Word 

e Lotus 1-2-3 

¢ Lotus Notes 

¢ PowerBuilder z 

—— uniVerse 

* etc... : 

The range and capabilities of highly VMARK HyperSTAR provides a single, 
productive Windows-based PC tools Object Oriented API or ODBC driver 
available today is staggering. Yet much of that lets you concentrate your efforts 
the data these tools are expected to work where you want to - in your VB, Access 
with still resides in corporate databases, - or other development tool, instead of 
running under databases such as Oracle, pulling your hair out trying to get 
Sybase, uniVerse, Informix and Ingres. multiple tools, interfaces and APIs to 
In the past, the only way to get access to ak 

that data was through complex SQL And because VMARK HyperSTAR is 
statements, proprietary database based on object messaging technology, 
networking software such as SQL*NET application efficiency, simplicity and 
and Ingres-Net, and database specific consistency are without equal. 


ee Pe ee D eS Ier. Find out about VMARK HyperSTAR. 


Call Madonna on (02) 900 5606 or fax 
—— or on (02) 957 6749. 


eee 


ASIA-PACIFIC x HyperSTAR. 


ACN 052 336 213 


